--保存类型的虚表
local _class = {}

function BaseClass(className, super)
    --生成一个类类型
    local class_type = {}
    --在创建对象时自动调用
    class_type.__init = false
    class_type.__delete = false
    class_type.super = super
    class_type.name = className
    class_type.New = function(...)
        --生成一个类对象
        local obj = {}
        obj._clas_type = class_type
        --在初始化之前注册基类方法
        setmetatable(obj,{__index = _class[class_type] })
        -- 调用初始化方法
        do
            local create
            create = function(c,...)
                if c.super then
                    create(c.super,...)
                end
                if c.__init then
                    c.__init(obj,...)
                end
            end
            create(class_type,...)
        end

        -- 注册一个delete 方法
        obj.DeleteMe = function(self)
            local now_super = self._clas_type
            while now_super ~= nil do
                if now_super.__delete then
                    now_super.__delete(self)
                end
                now_super = now_super.super
            end
        end
        return obj
    end

    local vtbl = {}
    _class[class_type] = vtbl
    setmetatable(class_type, {__newindex = 
        function(t,k,v)
            vtbl[k] = v
        end
        ,
        __index = vtbl, --For call parent method
    })
    if super then
        setmetatable(vtbl,{__index = 
            function(t,k)
                local ret= _class[super][k]
                return ret
            end 
        })
    end
    return class_type , super
end

return BaseClass